0 REM ** CDU TECHNO INFO TIP  FEB.1991
1 OPEN4,4:FORN=0TO63:FORX=0TO3:D=N+64*X:D$=RIGHT$("  "+STR$(D),3)+" %":A$=""
2 B=D:FORI=0TO7:T=B-INT(B/2)*2:A$=CHR$(49+1*(T=0))+A$:B=INT(B/2):NEXT
3 D$=D$+A$+" $":A$=""
4 IFDTHENA=INT(D/16):A$=MID$("0123456789ABCDEF",1+D-A*16,1)+A$:D=A:GOTO4
5 D$=D$+RIGHT$("00"+A$,2)+"   ":PRINT#4,D$;:NEXT:PRINT#4:NEXT:CLOSE4